Option Explicit
Sub J_Sample007()
    Dim myFilename As String
    Dim myFld      As String
    ChDir Application.DefaultFilePath
    myFld = "C:\windows\"                       'Nؿ_
    SendKeys myFld & "{TAB}"
    myFilename = Application.GetSaveAsFilename(InitialFileName:="")
    MsgBox myFilename
End Sub
